Importing the libraries
library(ggplot2)
library(plotly)
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
records creation
name = c("Prashanth", "Sam", "Rohan", "Daniel", "Siraj", "Dhoni", "Yuvraj", "Rohith")
age = c(20, 15, 30, 40, 30, 25, 43, 37)
weight = c(57, 69, 75, 70, 83, 53, 83, 90)
height = c(177, 163, 163, 183, 164, 190, 179, 182)
branch = c("Data Analytics", "Machine Learning Engineer", "Data Analytics", "Data Analytics", "Machine Learning Engineer",
"Business Intelligence Engineer", "Data warehousing Engineer", "Business Intelligence Engineer")
address = c("Chennai", "Madurai", "Punjab", "Salem", "Madurai", "Punjab", "Chennai", "Salem")
score = c(80, 90, 75, 60, 80, 95, 99, 56)
data-frame creation
df = data.frame (row.names = name, age, weight, height, branch, address, score)
head(df)
Bar Plot
bar_plot = ggplot(data=df, aes(x = branch, y = ..count.. / sum(..count..),fill = factor(branch))) +
geom_bar(color='black') +
labs(y = "Percentage of Branches chosen", title = "Percentage of the quality of the Branch") +
scale_y_continuous(labels = scales::percent) +
coord_flip()
ggplotly(bar_plot)
Histogram
histogram_plot = ggplot(data=df, aes(x=weight)) +
geom_histogram(color = "black",fill = "grey") +
labs(x = "Total Weight", y="Count", title="Count of Total Time asleep per day(h)") +
scale_x_discrete(labels =labs)
ggplotly(histogram_plot)
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Kernel Density Plot
density_plot = ggplot(data=df, aes(x = height)) +
geom_density(fill = "indianred3") +
labs(x = "height", y="density", title="Kernal density of the height")
ggplotly(density_plot)
Scatter plot
t <- list(family = "Helvetica",size = 14,color = "blue")
t1 <- list(family = "Times New Roman",color = "red")
t2 <- list(family = "Courier New",size = 14,color = "green")
t3 <- list(family = 'Arial')
fig_sp = plot_ly(data = df, x=height, y=weight, color = ~name,
type = 'scatter', mode = 'markers')%>%
layout(title= list(text = "Body weight vs Brain weight",font = t1), font=t,
legend = list(title=list(text='Animals',font = t2)),
xaxis = list(title = list(text ='Brain Weight', font = t3)),
yaxis = list(title = list(text ='Body Weight', font = t3)),
plot_bgcolor='#e5ecf6')
fig_sp
Pie-Chart
df_order = data.frame(table(df$address))
print(df_order)
fig_order = plot_ly(type='pie', labels=df_order$Var1, values=df_order$Freq,
textinfo='label+percent',insidetextorientation='radial')
fig_order
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyMgSW1wb3J0aW5nIHRoZSBsaWJyYXJpZXMKYGBge3J9CmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShwbG90bHkpCmBgYAoKIyMgcmVjb3JkcyBjcmVhdGlvbgpgYGB7cn0KbmFtZSAgICA9IGMoIlByYXNoYW50aCIsICJTYW0iLCAiUm9oYW4iLCAiRGFuaWVsIiwgIlNpcmFqIiwgIkRob25pIiwgIll1dnJhaiIsICJSb2hpdGgiKQphZ2UgICAgID0gYygyMCwgMTUsIDMwLCA0MCwgMzAsIDI1LCA0MywgMzcpCndlaWdodCAgPSBjKDU3LCA2OSwgNzUsIDcwLCA4MywgNTMsIDgzLCA5MCkKaGVpZ2h0ICA9IGMoMTc3LCAxNjMsIDE2MywgMTgzLCAxNjQsIDE5MCwgMTc5LCAxODIpCmJyYW5jaCA9IGMoIkRhdGEgQW5hbHl0aWNzIiwgIk1hY2hpbmUgTGVhcm5pbmcgRW5naW5lZXIiLCAiRGF0YSBBbmFseXRpY3MiLCAiRGF0YSBBbmFseXRpY3MiLCAiTWFjaGluZSBMZWFybmluZyBFbmdpbmVlciIsCiAgICAgICAgICAgIkJ1c2luZXNzIEludGVsbGlnZW5jZSBFbmdpbmVlciIsICJEYXRhIHdhcmVob3VzaW5nIEVuZ2luZWVyIiwgIkJ1c2luZXNzIEludGVsbGlnZW5jZSBFbmdpbmVlciIpCmFkZHJlc3MgPSBjKCJDaGVubmFpIiwgIk1hZHVyYWkiLCAiUHVuamFiIiwgIlNhbGVtIiwgIk1hZHVyYWkiLCAiUHVuamFiIiwgIkNoZW5uYWkiLCAiU2FsZW0iKQpzY29yZSAgID0gYyg4MCwgOTAsIDc1LCA2MCwgODAsIDk1LCA5OSwgNTYpCmBgYAoKIyMgZGF0YS1mcmFtZSBjcmVhdGlvbgpgYGB7cn0KZGYgPSBkYXRhLmZyYW1lIChyb3cubmFtZXMgPSBuYW1lLCBhZ2UsIHdlaWdodCwgaGVpZ2h0LCBicmFuY2gsIGFkZHJlc3MsIHNjb3JlKQpoZWFkKGRmKQpgYGAKCiMjIEJhciBQbG90CmBgYHtyfQpiYXJfcGxvdCA9IGdncGxvdChkYXRhPWRmLCBhZXMoeCA9IGJyYW5jaCwgeSA9IC4uY291bnQuLiAvIHN1bSguLmNvdW50Li4pLGZpbGwgPSBmYWN0b3IoYnJhbmNoKSkpICsgCiAgICAgICAgICAgZ2VvbV9iYXIoY29sb3I9J2JsYWNrJykgKwogICAgICAgICAgIGxhYnMoeSA9ICJQZXJjZW50YWdlIG9mIEJyYW5jaGVzIGNob3NlbiIsIHRpdGxlICA9ICJQZXJjZW50YWdlIG9mIHRoZSBxdWFsaXR5IG9mIHRoZSBCcmFuY2giKSArCiAgICAgICAgICAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IHNjYWxlczo6cGVyY2VudCkgKwogICAgICAgICAgIGNvb3JkX2ZsaXAoKQoKZ2dwbG90bHkoYmFyX3Bsb3QpCmBgYAoKCiMjIEhpc3RvZ3JhbQpgYGB7cn0KaGlzdG9ncmFtX3Bsb3QgPSBnZ3Bsb3QoZGF0YT1kZiwgYWVzKHg9d2VpZ2h0KSkgKyAKICAgICAgICAgICAgICAgICBnZW9tX2hpc3RvZ3JhbShjb2xvciA9ICJibGFjayIsZmlsbCA9ICJncmV5IikgKwogICAgICAgICAgICAgICAgIGxhYnMoeCA9ICJUb3RhbCBXZWlnaHQiLCB5PSJDb3VudCIsIHRpdGxlPSJDb3VudCBvZiBUb3RhbCBUaW1lIGFzbGVlcCBwZXIgZGF5KGgpIikgKwogICAgICAgICAgICAgICAgIHNjYWxlX3hfZGlzY3JldGUobGFiZWxzID1sYWJzKQoKZ2dwbG90bHkoaGlzdG9ncmFtX3Bsb3QpCmBgYAoKIyMgS2VybmVsIERlbnNpdHkgUGxvdApgYGB7cn0KZGVuc2l0eV9wbG90ID0gZ2dwbG90KGRhdGE9ZGYsIGFlcyh4ID0gaGVpZ2h0KSkgKwogICAgICAgICAgICAgICBnZW9tX2RlbnNpdHkoZmlsbCA9ICJpbmRpYW5yZWQzIikgKyAKICAgICAgICAgICAgICAgbGFicyh4ID0gImhlaWdodCIsIHk9ImRlbnNpdHkiLCB0aXRsZT0iS2VybmFsIGRlbnNpdHkgb2YgdGhlIGhlaWdodCIpCgpnZ3Bsb3RseShkZW5zaXR5X3Bsb3QpCmBgYAoKIyMgU2NhdHRlciBwbG90CmBgYHtyfQp0IDwtIGxpc3QoZmFtaWx5ID0gIkhlbHZldGljYSIsc2l6ZSA9IDE0LGNvbG9yID0gImJsdWUiKQp0MSA8LSBsaXN0KGZhbWlseSA9ICJUaW1lcyBOZXcgUm9tYW4iLGNvbG9yID0gInJlZCIpCnQyIDwtIGxpc3QoZmFtaWx5ID0gIkNvdXJpZXIgTmV3IixzaXplID0gMTQsY29sb3IgPSAiZ3JlZW4iKQp0MyA8LSBsaXN0KGZhbWlseSA9ICdBcmlhbCcpCmBgYAoKYGBge3J9CmZpZ19zcCA9IHBsb3RfbHkoZGF0YSA9IGRmLCB4PWhlaWdodCwgeT13ZWlnaHQsIGNvbG9yID0gfm5hbWUsCiAgICAgICAgICAgICAgICAgIHR5cGUgPSAnc2NhdHRlcicsIG1vZGUgPSAnbWFya2VycycpJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgbGF5b3V0KHRpdGxlPSBsaXN0KHRleHQgPSAiQm9keSB3ZWlnaHQgdnMgQnJhaW4gd2VpZ2h0Iixmb250ID0gdDEpLCBmb250PXQsIAogICAgICAgICAgICAgICAgICAgICAgICAgIGxlZ2VuZCA9IGxpc3QodGl0bGU9bGlzdCh0ZXh0PSdBbmltYWxzJyxmb250ID0gdDIpKSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgeGF4aXMgID0gbGlzdCh0aXRsZSA9IGxpc3QodGV4dCA9J0JyYWluIFdlaWdodCcsIGZvbnQgPSB0MykpLAogICAgICAgICAgICAgICAgICAgICAgICAgIHlheGlzICA9IGxpc3QodGl0bGUgPSBsaXN0KHRleHQgPSdCb2R5IFdlaWdodCcsIGZvbnQgPSB0MykpLAogICAgICAgICAgICAgICAgICAgICAgICAgIHBsb3RfYmdjb2xvcj0nI2U1ZWNmNicpCgpmaWdfc3AKYGBgCgojIyBQaWUtQ2hhcnQKYGBge3J9CmRmX29yZGVyID0gZGF0YS5mcmFtZSh0YWJsZShkZiRhZGRyZXNzKSkKcHJpbnQoZGZfb3JkZXIpCmBgYAoKYGBge3J9CmZpZ19vcmRlciA9IHBsb3RfbHkodHlwZT0ncGllJywgbGFiZWxzPWRmX29yZGVyJFZhcjEsIHZhbHVlcz1kZl9vcmRlciRGcmVxLCAKICAgICAgICAgICAgICAgICAgICB0ZXh0aW5mbz0nbGFiZWwrcGVyY2VudCcsaW5zaWRldGV4dG9yaWVudGF0aW9uPSdyYWRpYWwnKQpmaWdfb3JkZXIKYGBgCgo=